program testArrayAssignmentValid;
class testArrayAssignmentValid

BEGIN

VAR XRay : ARRAY[0 .. 4] OF ARRAY[0 .. 4] OF integer;
	YRay : ARRAY[8 .. 12] OF integer;

FUNCTION testArrayAssignmentValid;
BEGIN
	XRay[2][2] := 1;
	print XRay[2][2]
END

END

														       .
